      INTEGER PAGE
      DIMENSION KARD(132),KEND(3),KFMT(6),K126(6),SEQ(2),KSAC(3),LNOS(20
     &),LCC(2)
      COMMON KTAB(4640)
      DATA KA,KZ,K9/'A','Z','9'/
      DATA KEND,KFMT/'E','N','D','F','O','R','M','A','T'/
      DATA KBLK,KSAC/' ','/','*','C'/
      DATA LCC/'+',' '/,KDOL,MDOL/'$',ZE140/
      KRDR=2
      KPRT=3
      LIX=1
   20 LINE=1
      LINES=50
      KTAB(1)=2
      KTAB(2)=-1
      NAS=3
      KOL=1
      WRITE(KPRT,900)
      GO TO (30,40),LIX
   30 READ(KRDR,1000)K126,(KARD(I),I=1,66),SEQ
   40 WRITE(KPRT,1010) LINE,K126,(KARD(I),I=1,66),SEQ
      LINES=LINES-1
      IF(LINES) 42,42,43
   42 WRITE(KPRT,900)
      LINES=50
   43 CONTINUE
      DO 50 I=1,66
      IF(KARD(I)-KDOL) 50,45,50
   45 KARD(I)=MDOL
   50 CONTINUE
      DO 60 I=1,3
      IF(K126(1)-KSAC(I)) 60,80,60
   60 CONTINUE
      GO TO 140
   80 DO 90 I=1,2
      IF(K126(I)-KSAC(I)) 120,90,120
   90 CONTINUE
      CALL EXIT
  120 LINE=LINE+1
      GO TO 30
  140 IF(K126(6)-KBLK) 143,145,143
  143 IF(LIND-2) 150,30,150
  145 LIND=1
  150 READ(KRDR,1000) K126,(KARD(I),I=67,132),SEQ
      DO 160 I=1,3
      IF(K126(1)-KSAC(I)) 160,200,160
  160 CONTINUE
      IF(K126(6)-KBLK) 205,200,205
  200 MKOL=66
      GO TO 215
  205 MKOL=132
      GO TO 215
  210 IF(KOL-66) 215,215,225
  215 DO 222 KOL=KOL,MKOL
      IF(KARD(KOL)-KA) 222,220,220
  220 IF(KARD(KOL)-KZ) 240,240,222
  222 CONTINUE
  225 LIX=1
  227 DO 230 I=1,66
  230 KARD(I)=KARD(I+66)
      KOL=KOL-66
      LINE=LINE+1
      GO TO (40,20),LIX
  240 KSN=KOL
      KOL=KOL+1
      DO 300 KOL=KOL,MKOL
      IF(KARD(KOL)-KA) 320,280,280
  280 IF(KARD(KOL)-K9) 300,300,320
  300 CONTINUE
  320 KEN=KOL-1
      KCC=KEN-KSN+1
      GO TO (340,330,415),LIND
  330 KOL   =67
      GO TO 225
  340 IF(KCC-3) 380,350,380
  350 DO 360 I=1,3
      J=KSN+I-1
      IF(KARD(J)-KEND(I)) 410,360,410
  360 CONTINUE
      GO TO 600
  380 IF(KCC-6) 410,390,410
  390 DO 400 I=1,6
      J=KSN+I-1
      IF(KARD(J)-KFMT(I)) 410,400,410
  400 CONTINUE
      LIND=2
      GO TO 415
  410 LIND=3
  415 NTE=KTAB(1)
      NTEO=1
  420 KKP=KSN
      KTP=NTE+2
      KTEN=KTAB(NTE+1)+NTE+1
      IF(KTAB(NTE)) 480,480,430
  430 IF(KARD(KKP)-KTAB(KTP)) 480,440,470
  440 KKP=KKP+1
      KTP=KTP+1
      LEX=1
      IF(KKP-KEN) 450,450,445
  445 LEX=LEX+1
  450 IF(KTP-KTEN) 460,460,455
  455 LEX=LEX+2
  460 GO TO (430,480,470,500),LEX
  470 NTEO=NTE
      NTE=KTAB(NTE)
      GO TO 420
  480 KTAB(NTEO)=NAS
      KTAB(NAS)=NTE
      NAS=NAS+1
      KTAB(NAS)=KCC
      DO 490 I=KSN,KEN
      NAS=NAS+1
  490 KTAB(NAS)=KARD(I)
      NAS=NAS+1
      KTAB(NAS)=NAS+1
      NAS=NAS+1
      KTAB(NAS)=LINE
      NAS=NAS+1
      KTAB(NAS)=-1
      NAS=NAS+1
      GO TO 210
  500 I=NTE+KTAB(NTE+1)+2
      LAST=KTAB(I)
      IF(LINE-KTAB(LAST)) 210,210,510
  510 KTAB(I)=NAS
      KTAB(LAST+1)=NAS
      KTAB(NAS)=LINE
      KTAB(NAS+1)=-1
      NAS=NAS+2
      GO TO 210
  600 PAGE=0
      LINES=0
      NN=1
  620 NN=KTAB(NN)
      IF(KTAB(NN)) 680,680,625
  625 NCC=KTAB(NN+1)
      II=NN+2
      JJ=NN+1+NCC
      DO 627 K=II,JJ
      IF(KTAB(K)-MDOL) 627,626,627
  626 KTAB(K)=KDOL
  627 CONTINUE
      IF(LINES) 628,628,629
  628 PAGE=PAGE+1
      WRITE(KPRT,2000) PAGE
      LINES=51
  629 CONTINUE
      WRITE(KPRT,2010) (KTAB(K),K=II,JJ)
      LIND=1
      LN=JJ+2
  630 DO 650 I=1,12
      LNOS(I)=KTAB(LN)
      LN=KTAB(LN+1)
      IF(LN) 660,660,650
C
  650 CONTINUE
      I=I-1
  660 WRITE(KPRT,2020) LCC(LIND),(LNOS(J),J=1,I)
      LINES=LINES-1
      LIND=2
      IF(LN) 620,620,630
  680 LIX=2
      GO TO 227
  900 FORMAT(1H1)
 1000 FORMAT(72A1,2A4)
 1010 FORMAT(1H  I4,3X,72A1, 5X 2A4)
 2000 FORMAT('1' T40,'CROSS REFERENCE TABLE' T70,'PAGE ' I3//)
 2010 FORMAT(1H ,20A1)
 2020 FORMAT(A1 ,12X,20(I4,' '))
      END
   